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Be i 
99 FACILITY: MOUNT Utility Structure Levels 1 & 2 
90 ABSTRACT: 
4 This routine performs simple recursive logical name translation. 
; 90 ; ENVIRONMENT : 
4 00 i STARLET operating system, including privileged system services 
4 00 } and internal exec routines. 
4 004 ! 
4 B0¢ len 
d 004g {| 
04 AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Oct-1977 16:10 
04 i MODIFIED BY: 
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Remove REQUIRE 'LIBD$:CVASLIB.OBJJMOUNTMSG.B52'. 
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Previous revision history moved to MOUNT.REV 


oooooo 


SOooooo[eeo 


a ak a kk a a a a Nk tt at a at tt ot ts Ss 2OOOO 
- 
2 


. 
. 
. 
e 
. 
oe 
. 
~ 
. 
. 
° 
e 
. 
° 
7 
o 
o 
a 
+ 
e 
. 
. 
. 
. 
. 
. 
. 
e 
. 
. 
. 
e 
~ 
e 
. 
e 
. 
. 
. 
° 
. 
e 
. 
e 
. 
. 
. 
. 
. 
° 
. 
e 
+ 
° 
. 
. 
. 
2 
e 
. 
e 
~ 
° 
. 
e 
. 
a 
. 
. 
. 
o 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
‘ 
. 
. 
‘ 
e 
. 
. 
. 
. 
. 
* 
‘ 
| 
. 
. 


PUPPIES 
NOUS WO OCONOUES wh 


MAMAN 


ooooo 


p 
TER: CMOUNT. SRCITRNLOG.B32;1° (1 
| 


=32 V4.0-742 


es 
N 
~~ 
—_te 
oo 
aw 
——~) 
— 
> 
< 
4 
<= 
@ 


= 
re 
w 
a 
> 
Oo 


] 
3 

TRNL 18-50 -1984 01:36:17 VAX-11 Bliss-32 V4.0-742 Page 3 

v04= e8epn Tbe bi t8iae SN SimBmASfERscHGUMT Seca TRNLOG.83204%° (23 

; 6 o 3 ! GLOBAL ROUTINE TRAN_LOGNAME (LOG_NAME, RESULT) : NOVALUE = ; 
; 6646 94 1 !44 : 
; 6 0595 1! : 
; ? 238 : } FUNCTIONAL DESCRIPTION: ; 
3 o8 238 ! } This routine performs simple recursive logical name translation. | : 
3 0 Beno 1! ; 
cs an 601 1 ! CALLING SEQUENCE: H 
: 4 boos ! TRAN_LOGNAME (ARG1, ARG2) : 
; #6 0604 1 ! INPUT PARAMETERS: 3 
3 p bebe ! ARG1: descriptor of logical name to translate ‘ 
. OF 0607 1 ! IMPLICIT INPUTS: PF 
; 0608 1! NONE ; 
; 0609 1! 3 
; 80 0610 1 ! OUTPUT PARAMETERS: ; 
3; 0611 1! ARG2: descriptor of result string buffer : 
3 . pe} ’ (first word receives length of result) : 
; 84 0614 1 ! IMPLICIT OUTPUTS: : 
; 8 0615 1! NONE ; 
; 6886 pets 1! F 
; OF 0617 1 ! ROUTINE VALUE: F 
; «688 0618 1! NONE 3 
; «889 0619 1! : 
oi) _ 9620 1 ! SIDE EFFECTS: ; 
; v621 1! NONE 3 
; § 06 ¢ 1! ; 
; F§ 06 1 !-- 3 
; | (96 0624 1 : 
; 95 0625 BEGIN : 
; @& 0626 : 
; «497 0627 MAP 3 
; # 0628 LOG_NAME : REF VECTOR, ! logical name descriptor ; 
; 299 0629 RESOLT : REF VECTOR; ! result string descriptor 3 
; 100 0630 3 
; 101 0631 LOCAL . : ; 
; 106 bose NAME _DESC : VECTOR (2), ! descriptor of current logical name string 3 
; 10 063 STATUS, ! Syston service status : 
; ine beet P; ! string search pointer : 
; 106 $636 ! We iterate on logical name translation until the service returns SS$_NOTRAN. ; 
; 107 0637 ! Perform device name extraction by using only the part of the logical name to : 
3 H+ O38 the left of the colon (if any), also checking for node names. : 
: 110 640 ; 
s Wi 41 wane -DESC EO) = .LOG_NAME(O); ! get initial logical name 3 
; 118 ote NAME DESCC1) = Reso rel : : 
; 113 643 CHSCOPY (.LOG_NAMECOJ, .LOG_NAMEC1), 0, .RESULTCOJ, .RESULTC1)); : 
3 6115 645 IF BEGIN : 
; «6116 § DECR N FROM 10 TO 1 DO : 
; 17 647 4&4 BEGIN 3 
; 118 0648 4 P = CHSFIND_CH (.NAME_DESCCO), .NAME_DESCC1], ':"); 3 
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v04- tet RP a ee Hd ee et ee V 
; #119 649 4 IF NOT CHSFAIL (.P) 3 
; 120 6 9 4 THEN 3 
> 121 6 BEGIN ; 
; 1 é 6 : IF .P = .NAME DESCC1] LSSU .NAME_DESCLO] = 1 ; 
YS ot AND .(.P)<0,16> EQL '::' 3 
: 124 0654 THEN ERR gxiT (MOUNS_NONLOCAL) ; ; 
>: 125 0655 NAME_DESCCO) = .P = TNAME_DESCE1]; : 
; 126 9628 4 ND; 3 
: 127 0657 4 $ 
: 128 0658 4 IF CHS$RCHAR (.NAME_DESCC1]) EQL '_' : 
; ; 9638 4 THEN EXITLOOP 0; ‘ 
: 131 P beet 4 STATUS = $TRNLOG (LOGNAM = NAME _DESCEOI, ; 
we é P 066¢ 4 RSLLEN = NAME Dest 0], ; 
; 4 0663 4 RSLBUF = RESUCTCO)); ; 
> 134 0664 4 IF .STATUS EQL SS$_NOTRAN THEN EXITLOOP 0; : 
; 135 0665 4 IF NOT .STATUS THEN ERR_EXIT (.STATUS); ; 
; 136 0666 4 END ; 
s 137 0667 3 END 3 
: 138 0668 2 THEN ERR_EXIT (MOUNS_NOTRAN); ; 
> 13% 0669 : 
: 140 0670 2 RESULTCO) = .NAME_DESCCO]; : 
3) 6141 0671 3 
; 142 0672 1 END; ! end of routine TRAN_LOGNAME ‘ 
.TITLE TRNLOG ; 
[IDENT \V046-000\ : 
.EXTRN SYSS$TRNLOG : 
.PSECT $CODE$,NOWRT,2 ; 
OOFC 00000 .ENTRY TRAN_LOGNAME, Save R2,R3,R4,R5,R6,R7 : 0592 ; 
57 000000006 00 9E 00002 MOV LIBSSTOP, R? ; ; 
5E 04 C2 00009 SUBL2 #4, SP ; ; 
50 04 AC 00 0000C MOVL _LOG_NAME, RO + 0641 ; 
60 DD 00010 PUSHL (ROY : ; 
56 08 AC DO 00012 MOVL RESULT, R6 + 0642 ; 
04 AE 04 Ab BO 00016 MOVL  4(R6), NAME_DESC+4 ; ; 
66 00 04 B80 i 60 C 00018 MOVCS (RO), a4(ROJ, WO, (R6), a4(R6) > 0643 : 
53 A 00 $00 3 MOVL #10, N + 0646 ; 
04 BE 6E A 3A : 6 1$: LOCC #58, NAME_DESC, @NAME_DESC+4 + 0648 ; 
; 2 B BNEQ 2$ ; : 
D4 0002D CLRL ss RV ; ; 
54 1 DO OO002F 28: MOVL RI, P ; ; 
21 13 00032 BEQL 4$ > 0649 ; 
52 54 04 AE C3 00034 SUBL3 NAME _DESC+4, P, R2 : 0652 3 
50 6 o4 C3 00039 SUBL3 #1, RAME_DESC, RO ; : 
5 : D1 09 CMPL Re. RO ; : 
1 it 004 BGEQU 3 ; ; 
3A3A_ soa 4 ; 04 CMPW 3S s«(P), #14906 : 0653 : 
9 12 0004 NEQ 33 : 3 
0072803c 8F DD 049 PUSHL #7503932 + 0654 ; 
67 1 FB 4F CALLS #1, LIB$STOP ; : 
ob 2 pO 00052 3s: OVL R2, NAME_D : 0655 3 
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v04-000 ergeen aes Pare Waal SHER hbatT tk catemoc.0320%%* 23 \ 
SFOS 04 91 00055 48: CMPB = @NAME_DESC+4, #95 3 0658 : 
33 i} 09 A BEQL «6 6$ : ; 
— 7C C CLRO = = (SP) 3 0663 : 
7E 04 000 CLRL = = (SP) : : 
56 bo 006 PUSHL : : 
10 AE 9F 0006 PUSHAB NAME_DESC ; : 
14 AE 9F 0006 PUSHAB E-~DESC : : 
000000006 0 FB 0068 CALLS #6, SYSS$TRNLOG : : 
D0 0 $f MOVL STATUS : : 
00000629 &F 35 D1 00078 CMPL STATUS, #1577 > 0664 : 
14 13 0007 BEQL : : 
05 22 E8 00078 BLBS STATUS, 5$ 3 0665 : 
DD 0007 PUSHL STAT : ; 
67 o4 FB 0008 CALLS #1, LIBSSTOP : : 
AO F5 00083 5$ SOBGTR 3 0646 ; 
00728044 8F DD 00086 PUSHL #7503940 ; 0668 : 
7 01 FB 0008C CALLS #1. LIB$STOP F ; 
86 6E DO OO08F 6$ MOVL § NAME_DESC, (R6) ; 0670 : 
04 00092 RET ; 0672 : 
; Routine Size: 147 bytes, Routine Base: $CODE$ + 0000 ‘ 
: 1463 0673 : 
3 «144 0674 1 END : 
> 145 0675 0 ELUDOM é 
-EXTRN LIBSSTOP ; 
; PSECT SUMMARY : 
: Name Bytes Attributes : 
: SCODES 147 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
3 Library Statistics 3 
ae eee Pe PO eae Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time ; 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 14 0 1000 00:02.0 } 
; COMMAND QUALIFIERS i 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:TRNLOG/OBJ=OBJ$:TRNLOG MSRC$:TRNLOG/UPDATE=(ENH$: TRNLOG) : 


pe fe ee ee ee ee 
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3; Size: 147 code + 0 data bytes 
; Run Time: 06: 1-3 é 

; Elapsed Time: 0u:33. 

3 Lines/CPU Min: 33 1 

3 Lexemes/CPU-Min: 36568 

3 yoo: 104 pages 


——— U 
; Compilation Complete 
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